Celestin Apprentice 4/Apprentice-Release4.iso/Languages/MPW Oberon 2.1168/CodePatterns/Pattern9.mod

Text File | 1995-10-30 | 432 b | 32 lines | [TEXT/MPS ]

MODULE Pattern9;
  VAR
    a: ARRAY 10 OF CHAR;
    b: ARRAY 4, 8 OF INTEGER;

  PROCEDURE P0(x: ARRAY OF CHAR);
    VAR
      k: LONGINT;
  BEGIN
    k:=LEN(x);
    x[13]:=0X
  END P0;

  PROCEDURE P1(VAR x: ARRAY OF CHAR);
  BEGIN
    x[1]:="0"
  END P1;

  PROCEDURE P2(VAR x: ARRAY OF ARRAY OF INTEGER);
    VAR
      i, j: INTEGER;
  BEGIN
    x[i, j]:=3
  END P2;

BEGIN
  P0(a);
  P1(a);
  P0("ABCDE");
  P2(b)
END Pattern9.